Option Explicit
'ۭqҲ
Private Sub UserForm_Initialize()
    'ոL_Data01
    Dim myAr As Variant
    'w}C
    myAr = Worksheets("L_Data01").Range("C2:D11").Value
    With ListBox1
    'wMݩ
        .Width = .Width * 3
        .ColumnCount = 2
        .List = myAr
	    'HShiftάOCtrlӰƼƿ
        .MultiSelect = fmMultiSelectExtended
    End With
End Sub

Private Sub CommandButton1_Click()
    Dim i     As Long
    Dim myStr As String
    With ListBox1
        For i = 0 To .ListCount - 1
            If .Selected(i) Then
                myStr = myStr & .List(i, 0) & ","
            End If
        Next
    End With
    MsgBox myStr & "QܤFC"
End Sub
